-- background: 2700 from stack: in
-- bmap block id: 3312
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openBackground
  push recent card
end openBackground


-- part 2 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=282 top=33 right=52 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: Date


-- part 78 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=73 top=79 right=298 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: column


-- part 80 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=123 top=79 right=298 bottom=175
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: column


-- part 81 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=173 top=79 right=298 bottom=224
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: column


-- part 82 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=223 top=79 right=298 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: column


-- part 83 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=273 top=79 right=298 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: column


-- part 84 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=323 top=79 right=298 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: column


-- part 85 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=373 top=79 right=298 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: column


-- part 86 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=423 top=79 right=298 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: total


-- part 92 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=75 top=311 right=334 bottom=124
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: recalc
----- HyperTalk script -----
on mouseUp
  set numberFormat to "00.00"
  set cursor to 4
  put 0 into grandtotal
  repeat with row = 1 to 18
    put 0 into total
    repeat with col = 2 to 8
      add first word of line row of field col to total
    end repeat
    if total is zero then put empty into total
    put total into line row of field 9
    add total to grandtotal
  end repeat
  put grandtotal into field "Grand Total"
end mouseUp



-- part 93 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=251 top=307 right=332 bottom=278
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect scroll right
  go to previous card
end mouseUp



-- part 94 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=284 top=307 right=332 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect scroll left
  go to next card
end mouseUp



-- part 95 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=432 top=29 right=54 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 97 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=423 top=297 right=309 bottom=487
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Grand total


-- part 98 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=462 top=28 right=54 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 21209 / 21209
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daily
----- HyperTalk script -----
on mouseUp
  go to stack "Datebook"
end mouseUp



-- part 99 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=392 top=29 right=54 bottom=426
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rolo
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to stack "addresses"
end mouseUp



-- part 100 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=15 top=311 right=334 bottom=68
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: report
----- HyperTalk script -----
on mouseUp
  push card
  set the numberformat to "0.00"
  set lockscreen to true
  put 0 into total
  repeat with i = 1 to number of cards
    go to card i
    add first word of field "Grand Total" to total
  end repeat
  put "Total earnings = $" into message box
  put total after message box
  put " (average of $" after message box
  put total / number of cards after message box
  put " per week)" after message box
  pop card
  set lockscreen to false
end mouseUp



-- part 102 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=15 top=60 right=73 bottom=29
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: $
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  set lockscreen to true
  push card
  domenu "new button"
  set rect of button "new button" to 50,60,63,73
  put id of button "new button" into buttonid
  set name of button "new button" to "$"
  go stack "income vouchers"
  domenu "new card"
  put id of this card into cardid
  pop card
  put "on mouseUp" & return into scriptMaker
  put "put background field 1 into weekdate" & return after scriptMaker
  put "put getamount() into amount" & return after scriptMaker
  put "put getcategory() into category" & return after scriptMaker
  put "put getdate(weekdate) into date" & return after scriptMaker
  put "push card" & return after scriptMaker
  put "go stack " & quote & "income vouchers" & quote after scriptMaker
  put return after scriptMaker
  put "go to " & cardid & return after scriptMaker
  put "put category into background field 1" after scriptMaker
  put return after scriptMaker
  put "put date into background field 5" after scriptMaker
  put return after scriptMaker
  put "put amount into background field 2" & return after scriptMaker
  put "end MouseUp" after scriptMaker
  set script of button id buttonid to scriptMaker
  set lockscreen to false
end mouseUp




-- part 103 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=443 top=315 right=331 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To expenses
----- HyperTalk script -----
on mouseUp
  visual effect barn door close to black
  go to last card of stack "budget"
  get the date
  convert it to seconds
  put it into dateSec
  get field "date"
  convert it to seconds
  add 7 * 86400 to it
  put it into lastday
  repeat while dateSec > lastday
    get newWeek()
    get field "date"
    convert it to seconds
    add 7 * 86400 to it
    put it into lastday
  end repeat
end mouseUp




-- part 104 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=7 top=79 right=298 bottom=71
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: headings


-- part 105 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=343 top=308 right=332 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual effect scroll right
  go to first card of stack "budget"
end mouseUp



-- part 106 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=185 top=310 right=333 bottom=211
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  get newWeek()
  set lockscreen to false
end mouseUp



-- part 107 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=127 top=311 right=334 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: update
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  set lockscreen to true
  get field "headings"
  repeat with i = 1 to number of cards
    go to next card
    put it into field "headings"
  end repeat
  set lockscreen to false
end mouseUp